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PREFACE 
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I 


In laboratory automation systems the user interface 
is that part of the software/hardware system that 

provides for the communication with the user. A new 
software approach is reported consisting of a 
flexible interpreter combined with FORTRAN 
coded application modules. The interpreter 
(BACO) is built on a tagged data structure 

comprising user variables, program lines as 
well as a part of the language definition. A 

language dialect may be defined tailored to 
the requirements of the application at hand. 


( 




BACO IS ... 


A command language to drive simple or complex 

in the laboratory 


automated measurement facilities 


environment 


A programming language to express simple algorithms 
involving complex actions and functions 

An interactive 

used by non-trained research workers 


easily learned system intended to be 
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BACO IS NOT ... 


A language to express complex calculations 
A system to implement large scale string handling 

problems 


Yet another language designed to be incompatibl 




An angry machine you never will understand nor trust 


!: 


I 



suggestions, as well as notification of 
shortcoirmings in the program or in this 


Readers conments 
errors or 

manual, see last page in this manual, 

benificial to both you and the author. 


RELEASE NOTES. 


IMPROVEMENTS: 


Only the necessary globals are in the modules. 

The FOR-NEXT statements work for all three number systems. 

The three number systems are all documented. 

The functions REAL and INT are removed. 

Structure and way of definition of external interrupts and 
the use of mapping functions is explained in the manual. 

Only special types may be assigned, these types must be declared 


in the table SASSTAB. 


Structure of the R3 stack is explained in the manual. 

Introduction of the procedures .TSTDLM and .TSTEND. 

Comma's are preserved, when used as delimeters. 

Introduction of the procedures .R0DSK and .MKR0IN. 

Structure of the lineimage is explained. 

Interrupt is of type number now. 

R5 mode in FORTRAN is not supported anymore. 

Errors in BACPTS are corrected. 

External integers and reals are introduced and documented. 

Errors in BACMEM have been corrected, this will probably 
result in lower memory requirements. 

Central RUN loop is shortened. 

REMOVE has been changed in such a way that the elements of 
a dimension can be removed, the dimension declaration however not. 

When problems arise with the modules BACBAT, BACFIL and BACRIO, 

please contact the authors C.M. PRINS and F. BOQMSTRA. 


KNOWN DEFICIENCIES. 


(A noA vet cwV 


\ A t'G ] 


#SYN B=A 


Fails due to type conflict. 
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Today an increasing number of minicomputers is used for data 
reduction and 
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control functions in the laboratory. 

and exper iment has 
in a number of ways. 

and human user, however, has not. 
and money consuming parts of many automation projects. 
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is possible to design a standard package that takes 

of the communication between the user and the application 

dependent parts of the software. Standardisation of command 

syntax is desirable where the application of minicomputers 
becomes a rule rather than an exception. 
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A software system for any particular application can be 
viewed as a set of modules, that together with the operating 
system constitutes the tools to do the job. A user interface 
should fit these modules in a framework and give the user a firm 

grip on the system. At the same time it can provide an internal 
standard for software interfacing, error checking and reporting. 
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A user interface called BACO (for basic control system) is 
based on these ideas. It consists of a 
combined with FORTRAN 
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flexible interpreter 
or assembler coded data handling modules. 
The interpreter features a generalisation of datatype, I.E. BACO 

internal elements like numbers, character strings 
and disk files as well as external elements like contacts, relays 
and a/d converters. BACO is an empty system in the same sense 
a standard hardware interfacing system is empty. 

supplies the framework, not the functional modules, 
linked with those software modules which 
particular application. 

communication logic to interact with the 
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Another feature of the BACO interpreter is the possibility 

to interrupt a running program in order to execute a command 
another part of the BACO program whereafter 
the interrupted sequence. 
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TO THE FORTRAN PROGRAMMER- 

Imagine you have written an application program, consisting 
of a large number of subroutines and functions that handle your 
data and interface with your expirimental apparatus. In such a 
package there will be one module which is the actual main program. 

It will normaly consist of many calls to the 

various subroutines and -most important- it will contain 

the code to "talk" with the experimenter behind his 
teletype. The experimenter will be able to command the 
system and thus control his experiment. When BACO is used, 
your main program is replaced by the BACO interpreter. 

BACO will link the user to the set of subroutines within 
the machine. It will pass whatever parameters you specify, 
apply conversions where neccessary and perform simple 
checks on the correctness of your commands. It gives 

you the possibility to edit your commands and to combine commands to 
programs. 


TO THE BASIC-PROGRAMMER- 

You may view BACO as just another BASIC-implementation. 

It works with the numbered lines, which you may replace 
insert or delete as usual. 

LET, GOTO, PRINT, INPUT 

BACO gives you a number of things you never had. In BACO, 

you may use nearly every statement as a command, i.e. without a 
linenumber. In that case the command is immediatly 

any function or action you can 
write a program for in either FORTRAN or assembler 
(MACRO-11) can be introduced in BACO and used as a command 
and statement. Further you are not longer bounded to the 
real number format of BASIC. You may as well handle one- 
or more-word integers, strings or other data structures, 
provided you supply a set of routines that can add, 
substract or whatever you need to do with your data. BACO 

will enable you to write simple and clear expressions to 
control your data handling routines. 


IF, ... They are all the same. However 


executed. Besides that 
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TO THE NON-PROGRAMMER 
After reading chapter 2.1 of this manual, 
take some time to play with your new instrument. 

If the BACO system is loaded (as explained in chapter 4.1) 

there will be a "#" numbersign at the left margin. This 
means that BACO is ready to accept a command. You may 

enter commands with the keyboard. Terminate each line 

with the carriage return key. Try some simple programs, for 
instance to print a table of the square roots of the 

numbers 1 to 10. Note that BACO can be successfully applied 
even when you use only a very limited part of the commands and 

functions it contains. As time goes on you will 

gradualy learn more about it. There is no need to make an 

extensive study of the BACO ins-and-odds before touchinq the 
computer. Good luck! 
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BOW TO USE THIS MANUAL 

As a novice user 


i 


l ' 


start with reading chapter 2.1 (simple BACO). 

Then play around some time until you feel comfortable. Thereafter 
you might read chapter 3 and see if the material therin 

can help you in your application. Chapter 3 gives an enumeration 
of the standard commands, functions 

that are available in the library. 

The user can pick those modules that are applicable 

his application. Chapter 4 and appendix I describes how 

BACO system from modules out of the BACO library and 
modules, written or in FORTRAN or in MACRO-11. 

Chapter 5, 6 and 7 gives detailed information about the internal codinq 
of the BACO interpreter. Appendix A gives a quick reference 

for coirmands and statements, appendix C contains 

formal definition of the input to BACO. 
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BACO TO THE USER 
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Running the BACO system- the method to get a running 
version of BACO in core depends on the operating system 
available on your machine. The procedures for RT-11 will be given. 

RT-11: 
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assuming the file BACO.SAV is available on your 
system device, type R BACO in response to the ". 

monitor. In all cases baco will respond with: 


II 


of the 
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BACO VERSION N.N, DIALECT XXXXXXXXXXXX 
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Here N.N is the current version number of the BACO 

interpreter (this manual is updated upto version 4.0) 
XXXXXXXXXXXXX is 

is linked to BACO. 

functions that is available 

Finaly, the numbersign is the BACO prompting character or 

Whenever BACO prints a "#" on the teletype, you 
can give new commands or statements. 




and 
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the name of the so called 'dialect' that 
It defines the set of commands and 

in that instance of BACO. 
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tune". 
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You may begin to type your commands now. 
commands consist of a name, followed by one or more 
names, numbers or tokens. A name is defined 

a letter, possibly followed by letters or digits, i.e. 
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A3S4H 

IDENTIFIER 
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There 

BACO remembers only the first 6 characters. 

sequence of digits, possibly followed by a period, possibly 
followed by digits. 


is no limit on the length of a name, however 

A number is a 
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A token is one of the characters: 


*1 


» 




/ 
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% $ ! < > [ 1 
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or one of the following combinations: 
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X 


< 


> <> 


The input to BACO is routed via the standard 


terminal I/O 

routines of the operating system, thus the usual editing 
rules apply. For instance, under RT-11 the rubout-key 
will delete the last entered character and control-u will 


\ 


delete the entire line. 


Each line of input 


is terminated 


with a carriage-return. 


At this point you would expect an outline of the commands 

it must be pointed 
in contrast to other languages or systems 
nature of the available commands in 


that are available in BACO. 


Howeve r 




out that 


the 
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your system is quite 

uncertain. A set of standard commands and functions 

given in chapter 3, but the user can modify or remove those 
that are not fitted for his application. 




If your application 


uses BACO to control a 




multichannel analyser 


there will probably be commands 




like: 


# START 


Enable input from the 


ADC to be read and the spectrum 


currently in core to be updated. 


r 


#STOP 


Disable input from the ADC 


#CLEAR SPECNAME 


Zero all channels of the spectrum "SPECNAME 




# SAVE SPECNAME 


Write the contents of the spectrum that is 


currently in core onto the diskfile "SPECNAME 




in a medical application the commands will be more 


However 




like: 


ffPATIENT 
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Starts inquire via console device to obtain 


new patients 




data 


#REPORT 
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Prints the patients record etc. 
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Although the commands available in BACO thus depent 
application at hand, there are a few commands that almost 

certainly are part of your dialect. These are the commands 
that give control over the BACO-system itself. 
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ffLIST 

The command LIST will print all statement lines currently 
m the BACO store. The command has a number of optional 
parameters that allow you to specify which part of 

BACO program you want to list and on which device. 

examples will make it clear: 

#LIST LP 

Will list the entire program on the lineprinter 

#LIST #10 

Will list line #10 only on the teletype 

a li ne number is always preceded by a numbersign 
to distinguish it from numeric constants. when 

enterring new program lines the "#" printed by BACO is part 

of the number of that line, i.E. #10 HALT and not: ##10 

HALT 

#HALT 

Will suspend the execution of the running BACO proqram. 

returns with a "#". 

#KILL 
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Will clear the BACO store. 
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KILL deletes the current 
program and variables, after you have answered the question 

"ARE YOU SURE" with "YES". Any reply which 

does not start with the letter 


L 


n 


t. 


i 


> 




y 


i 


t 








is interpreted as "NO". 


Y 


* 


r 


i 


r 


* 


» 




#RUN 


i 


•i 




•I 




I 


■ * 


r 


d 


* 




Will start execution of the 
lowest numberred line. 
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Will start execution at line #100 
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The PRINT command 

expression(s) 

parameter may specify the device where the output is 
send to. Examples: 


is used to obtain the value of any 
from the system. 


An optional first 

to be 
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#PRINT 123 

123.0000 
#PRINT 2*3,3*3 

6.0000 

#PRINT LP 3*(4+5)+2 
(on the lineprinter appears:) 

329.000 STRINGS MAY BE PRINTED TOO 
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9.0000 
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STRINGS MAY BE PRINTED TOO" ,PI 
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3.1415 
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Note that PI is a standard constant always present in the 
sy s tern. 

The statement X=3 defines X to be 3. 

Now X can be used in expressions e.G. X'X. 

As a novice user, before reading further, it is 
advisable first to play a little with the BACO program. 
Appendix A containing a brief survey of the available commands 
can be of your help. 
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3. 


THE BACO SYNTAX AND LIBRARY. 

Introduction 


BACO is in it essentials 


an empty system. 

However, most applications will have 

functions 


many statements, 

1ro _ .. constants etc. in common. These statements 
descrTKo a S e ^ a 1 llbrar Y‘ ^ Allowing enumeration 

describes the modules available in the BACO library. 

At the same time some additional information is given about the 
behaviour of the BACO system itself 


3.1. 


CONSTANTS, VARIABLES AND EXPRESSIONS. 


The BACO lexical scanner recognises two different tvoes 

- a " al -nstants consisting ol at Sst one digit 

termteM by a^oS' PreCeded ^ 

A ^ote in a^strirKj is * — • 

Octals can also be recognised. They must be preceeded by 

E.g. 


a zero. 


numbers 3 
strings "A 


3.4 


.5 


10 


BC* 


f • 


IIIIII II 


(string consisting of a single quote) 

various types can also be defined 
a permanent symbol of BACO.(see 3.4) 


Constants of 


as 


Ye (e * g ' A ' X ' X3) or arra Y elements 

(e.g. AX(3),B(14), ARRAY(-5)). 

Expressions in EACO are of the normal format 

found m FORTRAN, BASIC and ALGOL. 

Delimiters can not be part of an expression. 

(e.g. print 2 -3 and print 2-3 have different results) 

operator S is°d S f° Pe H a ^° r fv, haVe different priorities, the priority of 
perator is defined m the user description table. Y 

afare fJ r V he T U knOWn priority rules for arithmetic 

as are found m ALGOL60 


as they are 


an 


operators 


or FORTRAN. (See 5.1.6). 





















3.2 


STANDARD STATEMENTS. 


A statement in BACO is a program line. Statements 

that are not preceded by a line number are considered 
as direct commands (direct commands are statements 

with line number #0). 

the token indicates that the rest of the line 
must be considered as comment. The first lexical 
element after the line number defines which 

processor is called. 

Expression in BACO may not contain delimiters 
e.g. PRINT 2+3 and PRINT 2 +3 have different 

results. Linenumbers can have values from #1 

to #999999. 


3.2.1. ASSIGNMENT. 


3.2.1.1 THE LET STATEMENT. 


The assignement instruction LET is used to assign the value of 

constant, of another variable or of an arithmetic expression to 
variable. 






LET <variable> 


<expression> 1 <variable> ! <constant> 

The name LET may be omitted as it is default. For those users 
that prefer := instead of 

provision is made to recognise also := as assignment operator. 

The LET instruction computes the value of the expression at the right 

of symbol 

of symbol 


in BACO the 


and assigns this value to the variable at the left 


Examples: 


#10 LET A = 5.02 
#30 LET B9 = 5*(XI2) 

#40 LET D = (3*C2~N)/(A*(N/2)) 


For example, the instruction 


#20 LET X=X+1 


causes the expression at the right of 


to be computed and the 
value obtained to be assigned to variable X, which is thus increased 

by 1. 


In contrast to BASIC, variables that have not yet been 
defined 


may not appear in the expression at the right hand side. 
The LET statement can be used for elements of different type 


e.g. for numbers LET A=B 

LET A=A+1 

LET N=33 
LET N=N+4 

for strings LET B="STRING"+CR 
for booleans LET C=TRUE 

LET C=A<B 
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3•2.1.2 THE SYN STATEMENT. 

The SYN statement is used to define 

elements to be synonyms of other elements 

SYN <name> 


J 


1 


I 


1 


* 


« 


? 


I 


I 


t 


i 


\ 


> 


\ 


4 




t 


4 




3 


* 


* 


I 


t 




u 

I 


{ 


$ 


3 

3 


I 


<name> 


t 


* 


i 


* 


l 

> 


4 


% 

! 

•• 


Example: 


I 


ft 


I 


I? 


! 


t 


6 


■t 


f. 


i 


y 


f 


t 


4 


#SYN SCHRIJF 

#SYN LABEL 
#SYN B 


PRINT 

#100 


% 


% 

! 

V 




' 


I 




S 


! 


!■ 


I 


i 


Now the statement SCHRIJF B will have the 
result as PRINT X. 

3.2.1.3 DIM STATEMENT. 

The DIM statement defines an array of 
elements that can be referenced by a name followed by 

an integer. 

The format is: DIM <name> 

A maximum of 16 arrays can be defined. 

Example: 
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3.2.2. CONTROL STATEMENTS. 

The control instructions are used to change the execution order of 
the statements of a program which otherwise would be executed in 

sequence. 

3.2.2.1 GOTO STATEMENT. 

Used to unconditionnally transfer control 
to other then the next sequential line 
in the program. 

The format of this instruction is as follows: 
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GOTO <line number> 

The GOTO instruction transfers control to the statement whose 
line number is indicated after the word GOTO. Then program 
execution proceeds in sequence from this statement. 

For example, in the program 
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#10 LET 

#20 PRINT A 

#30 GOTO #50 

#40 PRINT A+l 
#50 PRINT A+2 
#60 PRINT A+3 
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#10-#20-#30-#50-#60 
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Statement #40 is never executed. 

The GOTO statemant has only sense in run mode. 
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3.2.2.2 THE FOR-NEXT STATEMENTS. 

The two statements FOR and NEXT are used to execute a group of 
instructions (loop) a number of times. 

The format of these instructions is as follows: 

FOR <variable> = <expressionl> <expression2> 

sets up a loop to be executed the 

specified number of times. 

s * 

placed at the end of a for loop to 
return control to the FOR statement. 
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NEXT <variable> 


If expression 3 is omitted, the step value is assumed 
to be +1 or -1 depending on the values of <expressionl> 

and <expression2>. 
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With execution of the FOR instruction, the computer 
evaluates the three expressions the value of expressionl 
is assigned to the simple variable at the left of the 
equal sign and is called counter. 

^ien the instructions following the FOR statement are executed 
until a NEXT instruction followed by the counter is encountered. 
At tnis point, the counter incremented by the step-size (value 

of the expression 3). If the new value does not exceed the final 
value (value of the expression 2) 

The Program execution resumes at the instruction following 

the FOR statement. Otherwise program execution proceeds with 
the instruction following the NEXT statement 

and the counter is removed from the BACO store 
For example, execution of the 

#10 FOR 

#20 PRINT I CR 
#30 NEXT I 

Will cause the following to be printed. 




I 


1 


! 


• 


J 




f 


Li 


* 


■J 


l 


i 


i 


■» 


i 


1 




5 




1 


3 


v 


t 


» 


t 


\ 


t 




■ 








t 


l 




> 






* 


{ 


} 


* 


4 


1 


) 


\ 


> 


l 


I 


K 


\ 


) 


i 


* 


■ 


► 




I 


i 


■f 


* 


i 


l 




« 


■4 




» 


► 




i 


\ 


\ 




t 


\ 


’ 


t 




<• i 


i 


\ 


i 


( 


l 


3 


1 




t 

f 


i 


i 


■ 




i 


> 


i 

i 




x 


» 


: 


f 


v 


program 




V 


i 


f 


! 


> 


* 


\ 




? 


& 


r . 


< 


i 




I 


! 


' 


I 


i 


- 


< 


* 


I =1 2.8 .5 




} 


l 


) 


I 






1 


» 




< 


r 


» 








*. 


3 




r . 




I 


t 


‘ 


* 


: 


r 


? 


4 




t 


V 


! 


I 


i 


I 


i 


1 


5 


t 


I 


i 


i 






1 




1 




l 


; 


i 


i 


* 


1.5 


I 


i 


1 


? 


: 


i 




* 


i 




\ 


I 


i 


» 


2 


ffl 


1 


! 


I 




i 


•< 


< 




2.5 


I 


? 


I 


r 


* 


i 




V 

I 


1 


i 


1 


i 






i 


i 


t 


f 


\ 


\ 

i 


> 

I 


To improve the readability STEP, TO and UNTIL are defined 
to be dummy. So the FOR statement may also be 

e.g. FOR 1=1 UNTIL 5 STEP 2 
or 

FOR 1=1 TO 5 

It is possible to have loops within loops providinq 

of the counters be different. 
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It is allowed to jump out of a loop. 

#10 FDR 1=1 
#20 IF 1=3 GOTO #40 

#30 NEXT I 

#40 1=5 

#50 PRINT I 

When the loop is finished the counter is 
in expressions until a new value is assigned to it. 

3.2.2.3 THE CALL-RETURN STATEMENTS. 

The two instructions CALL-RETURN allow a particular set of instructions 

located at several different places in the overall program to 
be executed more than once without the need for re-writing them each 

the format of these instructions is as follows: 

Cline number> CALL Cline number> 

Cline number> RETURN 
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The instruction CALL cause the transfer of control to the statement 
having the line number indicated by the contents of the instruction. 
The program proceeds in sequence from this statement unti a R 
instruction is encountered and the computer goes back to the 

immediately following the calling CALL statement. 
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Subroutine calls may be nested. 

CALL is default in those cases where it is followed 

line number itself. 
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by a synonym of a line number or a 
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#10 SYN X=#100 
#20 X 

Will result in a subroutine call to label #100. 

Further the statement RETURN is used to indicate the logical end-Ot 

an interrupt routine (see 3.2.5.). 

The RETURN statement is also used as a direct command on response 

# to let the program continue execution. 
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3.2.2.4 THE RUN COMMAND. 


to start the execution beginning at 




The RUN command causes the program 

its lowest line number. Optionally the command RUN may be followed by 

line number to define the label where to start the program . 

# is printed on the 
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If a running program is interrupted, the tune 

console. This can happen on three conditions: 

(1) a PAUSE statement is encountered 

(2) an error is detected or 

(3) the user had entered a P(CONTROL P) on the console. 
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3.2.2.5 THE HALT STATEMENT. 
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The HALT statement terminates the program execution. 

It can be used as well as an instruction as as a direct command. 

In the latter case it is used, when the program was interrupted 

# is printed on the console and the user doesn't want 

to continue the program. 
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3.2.2.6 THE PAUSE STATEMENT. 

The PAUSE statement suspends the execution of the program temporaraly. 

On the console "# is printed. Now parameters can be investigated 

and altered. To continue the program, the user must give the RETURN 
command. 

CONDITIONAL STATEMENT IF. 

The IF statement allowes the conditional execution of 
The general format of this statement is: 

IF Cboolean expressionXBACO statement 

When BACO encounters the IF statement, the boolean expression is 
evaluated, when the result is true, the remainder of the statement 
after the boolean expression is executed. Otherwise 

sequentially numbered statement is executed. 
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If THEN is declared as a dummy element, all BASIC IF statements 

within the class of possible BACO statements, except for the difference 
in the line number format. 
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IF X>Y GOTO #200 
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I/O STATEMENTS. 

3.2.4.1 PRINT STATEMENT. 

The statement PRINT can be used for output on 

files. 

The general format is: 
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PRINT LP 
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E.G. 

prints the value of PI on the line printer. 

The PRINT statement consists of the name ... i 

name and a list of expressions. The default device is the console 

terminal. 

Other examples are: 

SIN (3) 

2+(3*5) 

3.2.4.2 INPUT STATEMENT. 

The INPUT statement consists of the name INPUT 

a device specification and a variable. 

The console terminal is the default device. 

A line is read from the specified device and an assignment is 
made exactly as in the LET statement between the variable and 

the expression in the input line. 

When input is done from the terminal console a question mark 
(" ? ") is pr in ted. 

For example take the following program: 

#10 INPUT X 
#20 PRINT X CR 
#30 REMOVE X 

#40 GOTO #10 

#RUN 

BACO is now in function as a desk calculator. 
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exDressions are allowed 
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?3 <CR> 

3.0000 

?3+2 <CR> 

5.0000 

?SIN (0) <CR> 

0.0000 

?PI <CR> 

3.14159 
?2<3 <CR> 

TRUE 

?"ABC"+"DEF" <CR> 
ABCDEF 
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3.2.4.3 LIST STATEMENT. 
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The statement LIST gives a list of the BACO program on the 
indicated device. 
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The general format is: 
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{<device>} {<linenumber>} {<linenumber>} 


LIST 
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The console device is default. 
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LIST CHI 
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lists the program on the file with logical BACO-name CHI. 
LIST #10 
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list only #10 on the console. 


LIST #20 #100 
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list from #20 to #100 on the console. 
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3.2.4.4 SYMBOLS STATEMENT. 


The statement SYMBOLS gives a list of all user-defined symbols of the 
indicated type (and their values if possible) 
the format is: 


on the indicated device 




SYMBOLS <device> {< type>} 
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If no type is specified all user-defined symbols are printed. 
The output format is: name tag-character value. 

3.2.4.5 OPEN STATEMENT. 
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The statement OPEN opens a device or file for 

input or output operations. 

The format is: 

<device> 
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<string> 

If <string> is emitted, <device> must be a non-file structured 

device, e.g. LP,PR. 

<string> is any single file specification string as acceptable for the 
command string interpreter of the used operating system. 

<device> indicates a physical channel for non-file structured 

devices (e.g. PR) or a logical BACO name. 

For examples see CLOSE (3.2.4.6) 

(Not available under PTS). 
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3.2.4.6 CLOSE STATEMENT. 
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The statement CLOSE closes a specified device for further 
I/O operation. 

The format is: 

CLOSE 
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Two examples of using open/close statements: 

OPEN CH3 "RF2:BACI3.DAT 
LIST 

CLOSE 

Function: save the program on file "RF2:BACI3.DAT 
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Function: write a list of all user-defined symbols 
on the line printer. 
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(Not available under PIS). 
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3.2.4.7 BATCH COMMAND. 
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The command BATCH directs the canmand input device of BACO 
to the indicated I/O channel. 

BATCH PR 
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reads a batch from the paper 


e.g. 
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OPEN CHI 
BATCH CHI 

CLOSE CHI 


e.g. 
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reads a batch from file "BACTES 
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Nested BATCH commands are not allowed. 
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3.2.4.8 KEY COMMAND. 

The comnand KEY indicates the logical end of the BATCH command-stream. 

returns the command input device to the console terminal. 
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Examples of a complete batch operation: 

OPEN CH4 "SAVPO ; save the BACO-program 

on file "SAVPO 


#10 
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LIST CH4 
PRINT CH4 "KEY" CR 

CLOSE CH4 


#20 
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; add the command KEY 
; make file permanent 
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The next day the following command sequence restores 

your BACO-program 
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#OPEN CH2 "SAVPO 
#BATCH CH2 

#CLOSE CH2 
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3.2.4.9 PSAV COMMAND. 
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Save a program via the indicated I/O channel. 
The format is: 
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PSAV <1/0 channe1> 
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E.g. PSAV CHI 

(Not available under PTS). 
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3.2.4.10 PGET COMMAND. 
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Restore a program via the indicated I/O channel. 
The format is: 
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E.g. PGET CHI 

(Not available under PTS). 
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EXTERNAL INTERRUPT CONTROL. 




3.2.5 
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external event to a BACO 
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In BACO it is possible to connect an 

subroutine. If this event occures a running BACO program is 

interrupted and the connected subroutine is executed. 

The maximum response time however depends on the time 
execute the longest statement. If BACO is executing an external 

interrupt routine, no other interrupts are granted. 

When the BACO system is started it is in the state: interrupt system 

disabled. 
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Enable BACO interrupt system. 
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Disable BACO interrupt system. 
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3.2.5.3 ON COMMAND. 
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Connect an external event to a linenumber. The format is 

<external event> <linenumber>. 

External events are defined as permanent symbols in the 
user description table. 


4 


f 


e 


* 


i 


ON 


► 


« 


* 


< 


< 


% 


i 




► 


t 


i 


r 


t 




j 


* 


> 


* 


\ 


* 


i 


*: 


4 


\ 


i 


f 


L 


r 


i 


1 


l 


l 


I 




J 


1 




J 


* 


t 






♦ 


l 


C 


► 


* 


* 




t 


i 


s 




i 


. 


{ 


J 


I 


i 


p 


i 


t 


i 




* 


i* 


J 


i 


4 


? 




► 


J 


t 




i 


I 


i 


I 


I 




v 


* 


< 


t 


i 




■ 


► 


1 


i 


F 






IL 


t 


















► - 


4 


% 




t 


» 






i 


t 




* 


> 


i • 


* 


« 




*» 


i 




5 . 


* 


I 




i 




r 


r 


4 


' 


f 


* 


t' 


t 


/ 


I ' 


4 




j 


s 


Z' 


’ 


f 




4 


♦ 


3.2.6 


MISCELANEOUS. 
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Remove the specified elements from the BACO system. 
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Names declared as dimensions can only be removed by the 
command KILL. 
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Reset the BACO system. All non-permanent symbols are removed. 

The statement can only be used as a direct command. 

On the console is printed "ARE YOU SURE?" 

Only if the user types a "Y" the statement is effectuated. Also 
a call is made to the user defined routines $EXIT and $INIT via a 
JSR 
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Ring the bell on the console. 

Can be used as well as a program statement or as a direct command. 
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3.2.6.4.BYE. 
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Return to the monitor. For savety reasons the statement can only 
be used as a direct command. 

On the console is printed "ARE YOU SURE?". Only if the user types 

a "Y" the return to the monitor is made. The user can define a 
special assembler code routine that is first called before the .EXIT 
monitor call. This routine must be defined in the UDT under the name 
$EXIT, the routine is called via JSR 

The BEY statement tests if a user defined routine is linked to 

the system. 
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Activate the online debugging aid. See 

TRACER MANUAL for the description. 
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3.3. 


STANDARD FUNCTIONS. 
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BACO distinguishes between two different types of functions. 

Functions with and without parameters. E.g. SIN(3) requires 
brackets but DATE does not. 

A function with parameters requires open and close brackets 
embracing the parameters. 

So called mapping functions that can also be used on the left 
hand side of an assignment are described in another chapter. 

3.3.1 NUMBER FUNCTIONS. 
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These functions return elements of the type number. 
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3.3.1.1 NUM. 
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Forces the value of the expression within the brackets to a 
value of type number. 
e.g. 
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3.3.1.2 MATHEMATICAL FUNCTIONS. 
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All mathematical functions that are available in the FORTRAN 
library, can also be used in BACO. 
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SIN(number) 

COS(number) 

ATAN(number) 

TANH(number) 

ABS(number) 

EXP(number) 

ALOG(number) 

ALOG10(number) returns logarithm 

SQRT(number) returns square root 
AINT (number) 


returns sine parameter in radians 
returns cosine parameter in radians 

returns arctangent of parameter in the range + or -pi 
returns tangens hyperbolicus 
returns absolute value 
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returns exponent 
returns natural logarithm 
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returns greatest integer value less then or 


equal to parameter 




3.3.1.3 POSITION. 


Get the position of a string in another string. 

If there is no match the full length of the first 
string is given as a result, 
e.g. 


POSITION("ABC 

POSITION("ABC 


II II 


B") is 1. 
DEF") is 3. 
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Gives length of string in characters, tabs 
are taken into account. 
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3.3.2 STRING FUNCTIONS. 


3.3.2.1 TYPE (<expression>) get type defining character of the expression. 

3.3.2.2 STRING (<expression>) forces the value of the expression within 

the brackets to be converted to a value of type string. 

PRINT STRING(10)+STRING(10) CR 

prints 1010. 

3.3.2.3 SPACE (Cnumerical expression^ 

Make a string of the specified number of spaces 
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e.g. 


SPACE(X+4) 


SPACE(10) 


e.g. 


3.3.2.4 ASCII (<numerical expression^ 

Make a single character string with the same binary representation as 
the corresponding integer value of the expression. 

ASCII(32) is a space. 
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E.g. 


3.3.2.5 SEGMENT. 


Segmentate a string . The function call SEGMENT(<STRING> 

<NUMBER X>,<NUMBER Y>) gives as a result the string of characters 

that are between position X and Y in the original string. 




3.4 


STANDARD CONSTANTS. 


In the standard BAGO system the following constants 
are defined: 


real constants are: 


57.2957795131 

3.141593 

2.718282 


RAD 


PI 




integer constants are: 


1024 


K 


string constants are: 


;carriage return and linefeed 
;carriage return, linefeed and form feed 


CR 


FF 


boolean constants are: 


TRUE. FALSE. 




dummy elements are: 


UNTIL, THEN, STEP, TO, AND. 

The dummy elements are considered as delimiters. 

E.q. PRINT A AND B. 
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INTERRUPTING TOE PROGRAM. 
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A running BACO program can be interrupted by a CONTROL-P 

command on the console. Then BACO stops execution and prints '# . 

now the user can enter any legal BACO-command 

0* 

execute the program at line #200 
halts the running BACO program 
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returns to the with ~P interrupted program 
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It is possible to nest program execution. 

Therefore it is to the user's responsibility not to ask for 
infinite recursive loops with the 
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P~# RUN #200 
P'# RUN #200 
P'# RUN #200 
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and again 

will cause stack overflow !1! 
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Errors are internally generated BACO interrupts. 

Therefore they can be treated as any normal P command sequence. 

So, if any error occurs, correct your program and give the command 

HALT or RETURN. 

A running program can also be interrupted by a call to the 
processor PAUSE. 

BACO UNDER RT-11. 

The following specials have been implemented in BACO-RT-11 
BACO AND FORTRAN. 

BACO is implemented as a big subroutine of a very small 
FORTRAN main-program. 

This requires a minimum core size of 16 K. 

There has been made use of the FORTRAN calls: 

CALL USEREX(EXITFT) 

CALL ERROR(for all allowed non-fatal errors) 

BACO I/O OPERATIONS. 

Under RT-11 BACO has been supplied with a complete spooling system for 

non-file structured devices,with the following enhancements: 

OPEN statements are not obliged 

all input/output information is stored on internal BACO-spool files 
physical output is only done after the CLOSE command 
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DEVICES UNDER RT-11. 

The implemented devices are: CHl,CH2,CH3,CH4 

LP,PR,PP 

CHI to CH4 are logical channel names that can be assigned 
to a mass storage file name. 

The default device is DK: and the default extension is 
BACO UNDER PTS. 

Under the PTS system only the devices PP and PR are supported 
and of course the console terminal. Further are available the 
processors BATCH and KEY. A program can be saved by the commands: 

#LIST PP 

#PRINT PP "#KEY" CR 

and be restored via the PR by the commands: 
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#KILL 

ARE YOU SURETY 
#BATCH PR 


(remove the old program) 
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IMPLEMENTING NEW OR MODIFYING COMMANDS. 


4. 




Those users that only want to instal a standard 

BACO system, can find the precise directions in ch. 4.1. 

after getting acquainted with BACO, the 
user can adopt his system to his special 
requirements. The rest of this chapter 

gives the information that is required to build a system 
exactly fitted for a special application. 
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INSTALLING A STANDARD BACO SYSTEM. 
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INSTALLING UNDER RT-11. 
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Appendix H contains a summary of all BACO-source modules and 
their meaning. Only the program UDT is of special 

interest of the user (see 4.2 and 4.3). 

New applications require a new UDT and nothing else. 

The label RT: has to be declaredin the UDT. 
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First the standard modules should be assembled, if the object 
modules are not available. 
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Then the operating system dependent object modules should be 
generated. 


! . 


/ 




4 




s 


9 


( 




■ 


> 


I 


* 


« 


.R MACRO 

*BACINT=BACEQU,BACINT 
*BACNMR=BACEQU,BACNMR 

*BACNMX=BACEQU,BACNMX 

*UDTUS=BACEQU,UDTUS 


I 


• • 




♦ 


l 


/ • 


{• 


->choose one of these three 


> 


l 


v 


4 


A, 


V 


t 




The linking procedure for a non-overlayed-version will be: 

.R LINK 

*BACUS,BACUS=BSTART,BACO,UDTUS,USER MODULES/F 
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9 object modules are supplied with the 
follows. The linking procedure will be: 


In an overlay environment 

system. They are build as 


.R LINK 

*BACUSO 

*B0VlA/0:1/C 

*B0V1B/0:1/C 
*B0VlC/0:1/C 
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*B0V2A/0:2/C 
*B0V2B/0:2/C 
*B0V2C/0:2/C 

*B0V2D/0:2/C 

*LEVEL 2 USER OVERLAYS/0:2/C 
*LEVEL 3 TO 7 USER OVERLAYS 


BACUSO=BCROOT,UDTUS,RESIDENT USER MODULES/F/C 
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4 . 1.2 INSTALLING FOR PTS. 
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We assume that the system is built on a RT-11, and then transfered 
to a papertape system in binary format. 

The object modules are generated in they same way as for a RT-11 
system. 

The label PTS: has to be declaredin the UDT. 

A BACO system is built as follows: 
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. The papertape can be loaded via the absolute loader. 

Take care that the FORTRAN library on the RT-11 system does 
not assume more processor options then that are available on the 
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REMOVING OPTIONS FOR THE BACO SYSTEM. 
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To remove options from BACO the user 
description table must be editted. 

The standard UDT is supplied as the 

file UDT.MAC. This file should be editted. 

The source is to a great extent self explainatory. 
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In the FORTRAN program one can check for the limits 
and declare an error by means of a special routine ERROR. 
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E.g. 


SUBROUTINE CLEAR (X,Y) 

COMMCN /WORK/ IBUF (100) 

IF (X.GT.Y) GOTO 20 
IF (X.LT.0.OR.Y.LT.0) GOTO 20 

IF (X.GET. 100.OR.Y.GT. 100) GOTO 20 

DO 10 I=X,Y 

10 IBUF(I)=0 

RETURN 

20 CALL ERROR ("OUT OF RANGE") 

RETURN 




END 


A call to the routine ERROR triggers the full error 
mechanism of BACO. 

The error message is printed and if the program was running 
the execution is suspended. 

The FORTRAN interface of BACO tries to convert 

the parameters to the required type. 


So e.g. 






CLEAR " 10 




10"+"0 


has sense. And is equivalent to CLEAR 10 100 
as the strings can be converted to reals. 
Consequently the definition of the subroutine 

CLEAR could also have been: 


% 




FORTRAN CLEAR INTEGER INTEGER 


Now the reals are converted to integers before entering the 
FORTRAN routine. Of course the FORTRAN program should be modified 
accordingly. If the parameter type is defined to be free 
the interface makes no conversion and missing parameters are 
not signalated as errors. The routine TYPE gives the FORTRAN programmer 




acces to the types of his parameters. 


CALL TYPE(PARAM,ICHAR) 


if no 


On return ICHAR contains the type defining character 
parameter was entered the type is free.(tag -1) 

Real FORTRAN functions are interfaced similary 
by means of the macro RFTNFIE. 

Here also the routine ERROR and TYPE can be used. 




the real function SIN is defined in the UDT by 

REAL 


E.g. 

RFTNFIE SIN 


If e.g. one wants to define an ALOG 
function, the FORTRAN program would have been: 


REAL FUNCTION ALOG3(X) 

ALOG3=AIOG(X)/ALOG(3) 

RETURN 


END 


ALOG3 REAL 


and defined in the UDT by RFTNFIE 
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The parameters of the FORTRAN routine are always assumed 
to be by value. So the following program has no sense: 

SUBROUTINE WRONG (X) 

X=X+1. 

RETURN 
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4.3.2 SPECIAL FORTRAN INTERFACE. 
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In the more complex FORTRAN routines with many default conditions 
the use of the normal FORTRAN interface leads to a complicated 
parameter handling. For this reason a second FORTRAN interface is 
provided, which gives the programmer the possibility to pick up 
the parameters from the BACO line image one at a time. 

Procedures should be declared in the UDT by the macro 

FTNX 
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Integer functions by the macro 

I FTNX 

And real functions by the macro 

RFTNX 
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Parameters can be obtained in the FORTRAN program by the 
subroutines EVAL and GET, these routines are equivalent with the 
subroutines .EVAL and .GET that are used in assembler coded routines. 
The calling sequence of EVAL is: 

CALL EVAL(V,IT,ILM,ILF) 

V is the field where the result will be stored. 

IT is the type of the parameter. 

ILM is the maximum length of the parameter. 

ILF is the effective length of the parameter 

the length is given in words 
if the call had no succes the ILF=0. 
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The calling sequence of GET is: 

CALL GET (V, IT, ILM, ILF) 
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V is the field where the result is stored. 
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IT is the required type. 

ILM is the maximum parameter length (words). 
ILF is the effective parameter length. 

if the call had no succes the ILF=0. 
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Error conditions can also be declared in the procedures by means 
of the subroutine ERROR (see 4.3.1). 
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Procedures are defined in the list of permanent symbols by the 

macro PRDC 
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FUNCTIONS. 


4.4.2 


4.4.2.1 NORMAL FUNCTIONS. 


Normal functions are defined in the list of permanent symbols 

by the macro FUNC. 

The calling sequence is: 

<name function> <entry point> 


% 


I 


FUNC 


See also 5.5 


4.4.2.2 NORMAL FUNCTIONS WITH PARAMETERS. 


defined in the list of 


Normal functions with parameters are 

permanent symbols by the macro PAR.FUNC. 

The calling sequence is: 

PAR.FUNC Cname function> <entry point> 


4 * 


See also 5.5 


4.4.2.3 MAPPING FUNCTIONS. 


Mapping functions are defined in the list of permanent symbols 
by the macro SFUNC. 

The calling sequence is: 

<name function> <entry point> 
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SFUNC 


See also 5.6 


4.4.2.4 MAPPING FUNCTIONS WITH PARAMETERS. 


defined in the list of 


Mapping functions with parameters are 
permanent symbols by the macro SPAR.FUNC. 

The calling sequence is: 

SPAR.FUNC <name function> <entry point> 


See also 5.6 
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INTERNAL SPECIFICATIONS. 


D . 


i 


> 






•* 


4 


2 






5.1. 
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USER DESCRIPTION TABLE. 
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The BACO interpreter works on a data area called the user 

description table. This facilitates the use of the BACO system 
by more users sharing the same code. The register R5 is 

pointing to the begin of the user description table (UDT). 

The structure of the UDT is represented in the following 
figure. 
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INTERNAL PARAMETERS. 

These are the parameters that are used by 

the BACO system. Most parameters are pointers to 

other data fields. 


5.1.1 


holds error message address 
-> kb input routine 
-> kb output routine 
-> top of user stack space 

-> base of user stack 

identification string 
linenumber of current line 
—>to keyboard/teletype buffer 
list of free elements 
begin allocatable area 
end allocatable area 

base of data stack 
first free word beyond stp table 
base of symbol table pointers tabl 
:last word for pointer table 
:top of permanent symbols 
[current operator priority 
;list of operator tokens 
[external routine called before 
[each statement in run mode 
;BACO status 

[list of external interrupts 

;bit map for allocation arrays 

defined initialisation routine 
user defined exit routine 

batch input flag 
line pointer save R4 
latest reference item symbol tabl 

assignable types table 

top of data stack 
remember pointer data stack 
priority monadic operator 


$ ERROR 

$KBIN 

$KBOUT 

$TOP 

$ STACK 

$DIALCT 

$CURLNR, 2 
$KBBUF 

SFRELST 


$FREEND 

$DATSTK 

SSTPTOP 




$ STPMAX 

$PERTOP 

$CURPRI 

$OPLIST 
$EXTRA 


$ STATUS 

SINTLIST 

$DIMMAP 

$INIT 
$EXIT 
$BATCHF 
$LINPNT 
$LATEST 
$ AS STAB 

$DATTOP 

$DATFNT 

SPRIMCN 


user 




BITS IN BACO STATUS 


raised by keyboard interrupt 

interrupt flag 

stop flag 

return flag 
set when running 
interrupt enabled flag 
cleared by error handler 
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B$INT 
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B$ION 
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Essential for the flexibility of the interpreter is the symbol table 
which holds all data elements in the system. Elements in the symbol 
table are identified by their name. Apart from a name, they 
consist of a type, a length indication and a data field. 

The type of the element is indicated by a single character field 
and defines the structure of the data field. A few data types are 
standerd but new ones can be defined as required. 

There is a list of pointers ordered in increasing 
value of the keys of the elements, they are pointing to. 

The maximum size of an element in the 

symbol table is 255 words. Elements of size zero cannot 

be entered in the symbol table. 

Pointer table 
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LINE IMAGE. 

A line image has the normal format. So it consists of a key, a tag 

a length and a data field. The tag character is a #. 

A command line is converted from .ASCIZ format to a line format by the 
lexical scanner (routine .SCAN). The key is a RADIX-50 representation 

of the line number. The line number ranges from 000000 to 999999. 

The data field consists of different elements. 

Name and linenumber. 


5.1.3 
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Names and linenumbers are represented by 2 words of which the 
second byte is not equal to zero. A name or linenumber 
consists of at most 6 characters. A name is left justified and a 
line number is right justified within the six characters. 
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Tokens are represented by one word. The first byte contains the ASCII 
representation of the token and the second byte is 

Denotation 
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Denotations are values in the line image such as numbers and 
strings. The first word of a denotation is zero followed by 
the normal BACO representation of data, as on the data stack. 
Two bytes (tag and length) and a number of words containing 
the actual data (the number is specified in the length-byte) 

are used. 
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a token CR. 
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The user stack is the normal SP stack of the PDPll. 

It is used to save return addresses of subroutine calls and to 

all other data temporarily. E.g.: the line number when a call 
statement is encountered. 


► 


I 




I 


save 


i 




t 


I 


I 


i 




i 


.1 


i 




t 


I 


* 


t 


► 


i, 




k 


!! 


f 


r 


F 




t 


I 


h 


> 


i: 


i 


* 


5.1.5. 


THE DATA STACK (R3-stack). 
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Apart from the normal stack (user stack) 
indicated by the SP register, BACO has another stack, indicated 

by R3. The data stack expands in the direction of increasing address. 
This stack is used to handle elements 

as they are found in the symbol table.They only don't have 

a key (name). So they consist of a length, a type and a 

data field. An element on the data stack is followed by a pointer 

to the beginning of the element. New elements are built on the 
data stack, operators work on elements on the data stack. 

To pop an element from the stack one can use the following 
sequence of instruction: 


\ 


1 




if 


i 




) * 


• V' 


r 


I 


J * 


' i 


♦ 


1 


i 


"• 




* 


J 


4 




) 


'/ 


• I 




•< 


i 


t 


f 


I 


r* 


4 


s 


I 'I 


« 




\ 






* 


i 




4 


f 




! i 


4 


* 


/ 




. ( 




i 


m 


> 


; 


> 


* 


r 




j 


* 


V 












* 




i 


t. 


> 


(R3) ,R3 
R3,R0 


MOV 


i 


« 




: 


' 




i 


* 


i 


■) 




I 


t 


MOV 


t 


> 


> I 


l 


i! 


* 




i 


t 


j 


F 


? 




i 






' 


! 4 


♦ 




• ( 


t 






•:f 






4 




« 


f 


* 


' 


f 


* 


f 


tag | length |< 


) 


I 


- 


4 


I 


\ 


> 


)? 


k 




4 


\ 


\ 




9 • 


1 


» 


( 


■ i 


* 








i 




1 






s 


\ 


data 


1 


: 1 




1 


< 


) 


r 


i 


r* 


i 


l 


J 






I 




* 


i 


I 


i 


\ 


i 


* 




* 


i 


t 


I 


* 


i 


i 


t 


tag | length I< 


l 


< 


l 


I 


i 


4 


f 


I 


I 


t 




ll 


i 




< 4 


I 


► 


1 


> 


t 


ll 

V 


I 


; 


* 


data 




) 


' 


\ 


> 


I 


V 


I 


I 


i 


ri 


i' 




I 




N 


I 




4 J 


1 


J 


i 


I 


1 


I 


I 


I 


I 


A 






? 




R3 — > 






1 




’) 


V 




* 


l 


‘ 


: 


v 


ll 


r h 




i 


9 


* 


i 




/ 


» 




expansion direction 

The use of the data stack by the following assignment 
s ta tement. 
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#A=l+2+MAX(4,5) 


;MAX is a not existing function 
;but with obvious effect. 
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Hie first byte contains the token 
the priority. 


the second byte 
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$OPLIST:.WORD 

.BYTE 

• BYTE 
.BYTE 
.BYTE 
.BYTE 

.BYTE 

• BYTE 
•BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 
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;filler 
;plus 
;minus 
; multiply 
; divide 
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;and 

exponentiation 
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; equal 






<,30 


;less than 
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;greater than 




<+200,30 
+200,30 
>+200,30 


or equal 






?not equal 

;greater or equal 
;end of list 






5.1.7 


EXTERNAL INTERRUPT LIST. 


External interrupts can be defined in the BACO system to let 

events interfere with the execution sequence of the 
BACO interpreter. An external interrupt has to be declared 

on two places m the UDT: 

so the user can 


1. 


As a name in the permanent elements 




address these elements. 


2 . 


In the list of the external interrupts. 

The external interrupt list contains pointers to the 
status of these elements. If a status is > 0 an interrupt 
occures. A pointer to a negative number indicates the 

end of the list. 


list of external 

interrupts 


external interrupt 
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ArlrHt-nJ^ B$IQN blt 1D the Stat US Of BACO (§STATUS) . 

A ditional information can be accessed by the name of the interrupt. 
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5.1.8 


NUMBER SYSTEM. 

In BACO three different number systems are provided. The user is free 
to choose the system he requires. The most simple and small system 

(BACINT) is only based on signed integers; the second system (BACNMR) 

supports signed integers (16 bit) and reals (32 bit); the third system 
(BACNMX) supports an extended set of different number representations 
presently numbers that are presented in octal, signed 16 bit integers 
32 bit reals, but this set can easily be extended. 

In BACO numbers are all of type N (=number) and automatic conversions 
are made between the various sub-types (e.g. integer,real). 

Apart from the type N, BACO also supports the types I (=integer) and 

R (=real). The types I and R are used for interfacing to FORTRAN and 

can be used to force an automatic conversion, when in a user program 

numbers of a specific type are required (e.g. see modules BACXNL and 
BACXNR). 

The structure of en element of the type I (=integer) is: 
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The structure of an element of the type R (=real) is: 
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In BACO no operations (e.g. : 
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/) on the types I and R are 
provided, all these operations work on the element of type N (=number) 

By the use of the types I and R in the user written modules, and the 

use of the type N in BACO, user modules become independent of the ac 
tual number representation used in the BACO system itself. 
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BACO integer system, (module BACINT) 

The representation of the type number is identical to the type integer. 

The only difference is the tag character. 
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BACO number system, (module BACNMF) 

Ttiis system supports integers as well as reals. 
Hie representation of an integer is: 
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A consequence of this representation is, that the integer 0 and the 
real 0.0 have an identical representation. 
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BACO extended number system, (module BACNMX) 
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In this system the sub-type is indicated in the first word of the 
data part of the element. The indices for the different sub-types 
have to be ordered in such a way, that in case of an arithmetic oper 
ation between two different sub-types, the resulting value has an 
index of a higher value. So coersion of the different operands means 
increasing of the index value. 

The following ordering of index values is correct: 
unsigned integers 16 bit 

signed integers 16 bit 

signed integers 32 bit 
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An operation of a 16 bit unsigned integer and a 16 bit signed 
integer will result in a 32 bit signed integer. As a 16 bit 
unsigned integer can not always be represented as a 16 bit 
signed integer. 
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5.1.9 


EXTERNAL INTEGERS AND REALS. 

Sometimes it can be useful to have the possibility to address 

other memory locations, than those within the BACO system. This 
can be the case when FORTRAN commons are used, and accesses to 
these values are required in the BACO system too. The modules 
BACXNL and BACXNR give the possibility toaccess these locations 
when they contain 16 bit integers and 32 bit reals. 

BACXNL supports integers: 

External integers can be declared in the UDT by two different types: 

1. a single external location(word): 

Structure: name(2 words) 

length(1 byte: value 3) 

type(l byte: value SFUNCTION) 
pointer to .EXNAL(1 word) 
pointer to .SETXNL(1 word) 
pointer to external(1 word) 

This element can be declared via the macro: 
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2. a range of adjacent memory locations 

Normal PDP 11 addressing byte addressing word basis 

Structure: name(2 words) 

length(1 byte: value 4) 

typed byte: value SPAR.FUNC) 
pointer to .RANGE(1 word) 
pointer to .SETRNG(1 word) 

length of area in bytes(1 word) 
pointer to first word ranged word) 

This element can be declared via the macro: 
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Structure: name(2 words) 

length(1 byte: value 3) 
typed byte: value SFUNCTION) 
pointer to .EXREAL(1 word) 
pointer to .SETXR(1 word) 
pointer to external real(l word) 
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This element can be declared via the macro: 
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INTERNAL STRUCTURE OF THE BACO KERNEL. 
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The structure of the kernel is explained by means of the 
following block diagrams. See for further explanation the 

source listings. 
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INTERFACE BETWEEN BACO KERNEL AND COMMAND PROCESSOR. 
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3 are defined bymeans of an element of the type 
proces" (indicated by the character "*") in the symbol 
table. The first word in the element is the address of the 
routine to be called via a JSR PC,@(R0)+. Consequently R0 
is pointing to the second word in the element defining the 
proces. The processor is entered with R3 pointing to data stack 
and R4 pointing to the line image after the processor name. 

If the processor detects an error it returns to the BACO 
kernel via an RTS PC and the Z — bit is cleared. 

The BACO kernel detects an error if on return R4 is not 

pointing to the end of the line image. 
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INTERFACE BETWEEN BACO KERNEL AND FUNCTIONS. 
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Functions are defined by an element of the type function 
(tag character "F") or "function with parameters (tag character H ). 

Similar as processors the first word in the element is the entry- 
___ of a function with parameters a test is made 

for open and close brackets. The function is called via a 

JSR PC,@(R0)+. R3 is pointing to the data stack and R4 to the 

line image after the function name and in the case of a parameter 
function after the open bracket. The BACO kernel checks by 
functions with parameters for open and close brackets. 

The function returns with RTS PC. The Z-bit indicates the 
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INTERFACE BETWEEN BACO KERSJEL AND MAPPING FUNCTIONS. 
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Mapping functions are functions that can also be used on the 
lefthand side of an assignment operator. Mapping functions 
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are e.g. used when large array's are used or when references are 
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made to devices or external variables.(e.g. 
Examples: 


FORTRAN commons). 


a large array resident on disk: A(12345)=A(12345)+1 
setting of a digital-to-analog converter 

There are two types of mapping functions with (tag character "E") 
and without parameters (tag character "H"). 

An assignment to a mapping function, when used on the lefthand side 
of the assignment, is done in the following way. 

The routine .EVALAD is called and checks if the element on the left 
hand side is of type E or H, if not, the address of the routine 
•ASSGN followed by the name of the element is placed on the data 
stack. If the element is of type E or H a JSR PC,@(R0)+ is made 
via the second data word of the element. In the case of a mapping 
function with parameters a test is made for open and close brackets. 

After the call to .EVALAD the assignment processor tests if there is 

token, and makes a call to .EVAL. 

If all these procedure calls, were succesfull eventually the actual 
assignment is done by the instruction sequence 
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Elements of the type E or H have to initialize the data stack in such 
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INTERFACE BETWEEN BACO KERNEL AND OPERATORS. 

Operators are defined in the symbol table by elements with an 
artificial name of the following construct. 
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Operands are assumed to be on the data stack and the result 
is also found on the data stack. The routines are called via 
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INTERFACE BETWEEN BACO AND CONVERSION ROUTINE. 

The conversion routines are defined in the symbol table by 
special names of the following form. 
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The routine .NARITH simulates a call in the so called threaded 
mode to the label in the FPMP. 

For BACNMX a similar construction is made. The length of the table 
despends on the number of subtypes. 
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the device. If Rl is equal to zero a line should be read from the 

console device. 

Similar a call*is made via $KBOUT when BACO wants to output a string 
in ASCIZ format. R0 indicates the string, Rl indicates the device. 

If Rl is equal to zero it is the console device. 
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IMPORTANT ROUTINES. 

ROUTINES IN MODULE BACKRN. 
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NAME: $RUN 

CALL: JSR 
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Let the interpreter run starting at the line number 
as declared in the locations $CURINR. All 
modified only R5 is preserved. 
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Stack the current line number and the intertpreter 
status. R0 is modified. F 
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NAME: .UNSTK 
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Restore the old line number and interpreter status 
k?j ts ? sentry set in status are preserved. 

R0 is modified. 

EXECUTE STATEMENT. 

NAME: $EXECUTE 
CALL: JSR 
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PC,$EXECUTE 

Execute statement indicated by R4. So R4 points to 
the data field of an element of the type lineimage. 

< 5 PYPPnS eSerVed u and a11 other re 9isters are modified. 
$EXECUTE uses the Z-bit convention. 

LEXICAL SCANNER. 
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NAME: .SCAN 
CALL: JSR 


PC,.SCAN 

Convert ASCIZ string to a line image. 

R3 points to the buffer where the line image must 
be stored, R4 points to the string. 

On return the Z-bit indicates the success of the operations. 
5 1S Reserved and all other registers are modified. 
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ROUTINES IN MODULE EACHEM. 


6.2.1 SYMBOL TABLE SEARCH. 


NAME: .SEARCH 
CALL: JSR 


PC,.SEARCH 


Symbol table routine: enter with R0 pointing to key 
returns Rl pointing to symbol table pointer and Z set if found 
Z cleared if not found. In that case Rl points to the place 
where the new symbol should be inserted. 

R2 points to the key of the symbol in the symbol table 

Method: binairy chop 


6.2.2 SYMBOL TABLE ENTER. 


NAME: .ENTER 
CALL: JSR 


PC,.ENTER 


Enter stores a new symbol in the symbol table. If there was 
already a symbol with the same key, this is removed first. 
Enter with R0 pointing to the symbol to be enterred 
R0 is updated to reflect move of symbol 
Rl,R2 are modified 
Z-bit convention 
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ENTER PERMANENT SYMBOL. 


NAME: .ENTPRM 

CALL: JSR 


PC,.ENTPRM 


Enter in pointer table symbol that is not 
in the symbol table itself. E.g. permanent 

constants and processors. 

Pointer to element in R0 
Rl,R2 are modified 
Z-bit convention 

R4 and R5 are preserved. 
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SYMBOL TABLE DELETE. 


NAME: .DELETE 
CALL: JSR 


PC,.DELETE 


Delete routine: deletes a symbol from the symbol table. 

Freecomming space is returned to the list of free elements. 

Call with R0 pointing to the key of the symbol to be deleted. 
Z-bit convention 

R4 and R5 are preserved. 
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Get length of element in BACO format. 

Enter with in R0 pointer to element. 

On return, R1 contains the total length in bytes. 
No Z-bit convention. 
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the first word of an element 

is the pointer to the next 

the last element has a pointer 

the next word contains the length in bytes 

elements of the size of 1 word are not allowed 

The elements are ordered in increasing address. 
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R0 pointer to element 

Rl length in bytes 


j 


i 




4 


' 


4 




4 




I 


I 


I 


► 






J 




I 


!i 




i 


< 


i 






4 


1 


i' 


4 


f 


-I 


I 


I 


* 


* 


r 




■ 


» 


i 


i 


> 


•« 


< 


i 






i 


' 


< 


t 


t 


i 




j 




i 


« 


4 


! 


•i 


i 




< 


■ 


I 


i 


r 


.( 


t 


I 


i 




I 


a 




< 


i 




4 


a 






4 




■* 


1 








* 


S’, 


o 


i 


! 




I 


3 


f- 


j 


9 


V 


J 


* 


V 


f 


r 


i 


I 




9 ? 




4 


•I 






5 


V 




4 


* 


I 


4 


I 




i 


a 


i. 




i 


J 


4 


l 


I 


j 


i 




t 


i 


i 


j 


► 


i 




j 


t' 































i 


\ 


j 


f 






/ 
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6.3.1 GENERAL EXPRESSION EVALUATION. 
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Driver for general expression evaluation routine. 
Enter with R4 pointing in the current lineimage 
The result is indicated by the Z-bit. If the Z-bit 
is set .the result is on the data stack. 
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NAME: EVALl 

CALL: JSR 
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PC,EVALl 

This is the proper expression evaluator, on "(" it stacks the current 
priority, resets priority and goes in recursion to evaluate the expes 
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way monadic operators are handled. 

The priority of the operator is found in the table $OPLIST(R5). 
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on the data stack. An element on the R3 (=data) stack consists 
of the type+length word, followed by the data, followed by a 
pointer to the type+length word. (See 6.1.4) 
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It so, it advances r4 over the delimiter. 
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•EVALAD evaluates an address. 

For further description see 6.5.1 Mapping functions. 
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Test if end of line is reached. 
If not 
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Read buffer from console terminal in buffer indicated 

by R0. On return R1 is modified. No z-bit convention. 
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Print ASCIZ string on terminal. 
The string is indicated by R0. 
On return RR is modified. 

No Z-bit convention. 
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Test if an overflow of the sp stack is to occure. 
If so, declare error. Z-bit convention. 

ASSIGNMENT OPERATOR. 

NAME: .ASSGN 

CALL: JSR 
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Assignment operator for simple element. 

Enter element of data stack in the symbol table. 
Z-bit convention. R4 and R5 

CHECK FOR COMMAND MODE. 

NAME: .COMMODE 

CALL: JSR 


« 


are preserved. 


6.4.8 


i 


PC,. COMMODE 

Check for command mode.If not, declare error. 

Z-bit convention. No registers are modified. 

CHECK FOR RUN MODE. 
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Check if interpreter is in run mode. 

If not, declare error. Z-bit convention. No 
registers are modified. 
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If found, R0 is pointing to the word 
type and length. R0, Rl and R2 
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If found, R0 is pointing to the data field. 

R0, Rl and R2 are modified. Z-bit convention. 
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Z-bit convention. 
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6.4.25 R0 (INTEGER) ON DATA STACK. 


NAME: .R0DSK 

CALL: JSR PC..R0DSK 


Put integer in R0 on data stack in number format. 
R4 and R5 are preserved. 

R3 is updated. 

Z-bit convention. 
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NAME: .MKR0IN 

CALL: JSR PC, .MKR0IN 


Convert element already on data stack to type integer 
and put the result in R0. 

R4 and R5 are preserved. 

R3 is updated. 

Z-bit convention. 
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STANDARD ERROR MESSAGES: 
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OVMESS: 

NODIM: 

NOCONV: 

USOVF: 

OUTRAN: 

CIRCLE: 

NORUN: 

NOLINE: 

TYPEER 

NOSTAT 

NOMESS 

UNPENT 
PERSYM: 

EXTRA: 

SURE: 
ILLRED: 

NOERR: 

NOEQAL: 
UNDEF: 
ILLOPR: 

CIOBRA 

SYNERR 

LENERR 
FTNTYP: 

XPARAM: 

NOLNK: 

DATOVF: 

OVPNT: 
ILLASS: 


.ASCIZ /SYMBOL TABLE OVERFLOW/ 

.ASCIZ /ALL DIMENSION ARE IN USE/ 

•ASCIZ /NO CONVERSION ROUTINE/ 
•ASCIZ /USER STACK OVERFLOW/ 

ASCIZ /OUT OF RANGE/ 

•ASCIZ /CIRCLE DEFINITION ?/ 

•asciz /Not in command mode/ 

ASCIZ /LINENUMBER MISSING/ 

asciz /No synonym/ 

ASCIZ /UNDEFINED STATEMENT/ 

ASCIZ /ONLY IN COMMAND MODE/ 

ASCIZ /UNPRINTABLE ITEM/ 

ERROR/ 

•ASCIZ /STATEMENT NOT TERMINATED/ 

•ASCIZ /ARE YOU SURE ?/ 

•ASCIZ /TYPE CONFLICT/ 

•ASCIZ /UNDEFINED ERROR/ 

•ASCIZ /UNDEFIED STATEMENT OR NO =/ 
•ASCIZ /UNDEFINED OPERAND/ 

ASCIZ /ILLEGAL OPERATION/ 

ASCIZ /BRACKETS DON'T MATCH/ 

ASCIZ /ILLEGAL SYNTAX/ 
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ASCIZ /ELEMENT TOO LONG/ 
•ASCIZ /NO FTN TYPE/ 
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•ASCIZ /PARAMETER MISSING/ 




•ASCIZ /PROCESSOR NOT LINKED TO BACO/ 
* .ASCIZ /DATA STACK OVERFLOW/ 

•ASCIZ /POINTER TABLE OVERFLOW/ 

•ASCIZ /ILLEGAL ASSIGNMENT/ 
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RADIX 50 CONVERSION 
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IT^e maximum RADIX-50 value is, thus 

47*50 X 50 + 47*50 + 47 

The following table provides a convenient means of translating 
P^^v n m fc ? e ASCI1 character set and its RADIX-50 equivalents. 9 

( aHSsnH 1Ven th l asc “. stri ng X2B, the RADIX-50 equivalent 
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ENTRY POINTS IN MODULE 

.GLOBL $EXECUT 
.GLOBL $RESET 

•GLOBL $RUN 
.GLOBL $BACO 
.GLOBL .COMMAND 
.GLOBL . SCAN 
.GLOBL .STKUP 
.GLOBL .UNSTK 
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; EXECUTE STATEMENT 
; RESET BACO SYSTEM 
;RUN PROGRAM 
?ENTRY BACO KERNEL 
; ACCEPT COMMAND 
; LEXICAL SCANNER 
; STACK CURRENT ENVIRONMENT 
; UNSTACK CURRENT ENVIRONMENT 
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ENTRY POINTS IN MODULE 

•GLOBL .SEARCH 
. GLOBL .ENTER 
.GLOBL . ENTPRM 
.GLOBL .DELETE 
•GLOBL . TSTTAB 
.GLOBL .ELMLGT 
.GLOBL .CLAIM 
.GLOBL •RELEASE 


BACMEM 


; SYMBOL TABLE SEARCH 
; SYMBOL TABLE ENTER 
; ENTER PERMANENT SYMBOL 
; SYMBOL TABLE DELETE 
;TEST ELEMENT IN USER AREA 
;GET LENGTH ELEMENT IN BYTES 
; CLAIM MEMRORY AREA 
;RELEASE PIECE OF CORE 
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ENTRY POINTS IN MODULE 

.GLOBL .ASSGN 
.GLOBL .EVAL 

•GLOBL .EVALA 
.GLOBL .$EVALAD 
•GLOBL .NXTNA 

•GLOBL .NXTUN 
•GLOBL .PSHVA 
•GLOBL .SKPDL 


BACEVA 


;SIMPLE ASSIGNMENT 
; EVALUATE EXPRESSION 

; EVALUATE NAME 
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;GET NEXT NAME 

;GET NEXT UNIT 

;PUSH VALUE ON DATA STACK 
;SKIP DELIMITER 
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ENTRY POINTS IN MODULE 

.GLOBL . CALL 

•GLOBL .GOTO 
•GLOBL .KILL 
.GLOBL .LET 
.GLOBL .LETA 
.GLOBL .REMOVE 
.GLOBL .RETU 
.GLOBL . RUN 
.GLOBL . STOP 


BACPRC 
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ENTRY POINTS IN MODULE 

.GLOBL .CALPRC 
.GLOBL .CLSTRING 

. GLOBL .COMMODE 
.GLOBL .CONCA 
.GLOBL .DIMADR 
.GLOBL .DIMVAL 

.GLOBL .ENDLI 

.GLOBL .ERRMES 
.GLOBL . GET 
.GLOBL .GTCBR 
.GLOBL .GTDEVICE 
.GLOBL .GTEQAL 
.GLOBL .GTINT 

. GLOBL . INTR0 
.GLOBL .GTLINE 
.GLOBL .GTNUM 

.GLOBL .GTOBR 

.GLOBL .GTREAL 
.GLOBL .GTSTRNG 
•GLOBL .KB IN 
.GLOBL .KBOUT 
.GLOBL .MAKE 
.GLOBL .OPEXEC 
.GLOBL .OPR 
.GLOBL .OPRS 
.GLOBL ..OPR 
.GLOBL ..OPRS 
.GLOBL .RUNMODE 
.GLOBL .TSTDLM 

.GLOBL . TSTEND 
.GLOBL .TSTSURE 
.GLOBL .USTEST 


BACLIB 
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CALL PROCESSOR TEST IF LINKED 
CLOSE STRING LABEL TO JUMP TO 

CHECK COMMAND MODE 
CONCATENATION OF STRINGS 

CALCULATE ADDRESS OF DIM ELEMENT 
GET VALUE OF ELEMENT INDIMENSION 
TEST END LINE 
PRINT ERRORMESSAGE AND TAKE ACTION 
CENTRAL GET ROUTINE 
GET CLOSE BRACKET 
GET DEVICE 

GET ASSIGNMENT OPERATOR 

GET INTEGER 

GET INTEGER IN R0 
GET LINE NUMBER 
GET NUMBER 
GET OPEN BRACKET 
GET REAL 
GET STRING 

KEYBOARD INPUT 
KEY BOARD OUTPUT 
MAKE IT DEFINED TYPE 

SEARCH KEY AND CALL PROCESSOR 
GET OPERAND POINTER 

GET OPERAND POINTERS 

9 

GET OPERAND POINTER 

GET OPERAND POINTERS 

TEST RUNMODE 

TEST DELIMETER CHARACTER 
TEST END OF LINE CHARACTER 
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BATCH JOBS TO GENERATE A BACO SYSTEM 

Batch job to assemble the standard modules. 

$J0B/RT11 
TTYIO 
.R MACRO 

*BACBOO=BACEQU,BACBOO 

*BACCNV=BACEQU,BACCNV 

*BACCST=BACEQU,BACCST 
*BACDIM=BACEQU,BACDIM 

*BACEIN=BACEQU,BACEIN 

*BACERR=BACEQU,BACERR 

* BACEVA=BACEQU,BACEVA 

*BACEXP=BACEQU,BACEXP 

* BAC FOR=BAC EQU,BACFOR 
*BACIF=BACEQU,BACIF 
*BACINP=BACEQU,BACINP 

*BACKFN=BACEQU,BACKRN 

*BACLEX=BACEQU,BACLEX 

*BAC LI B=BACEQU,BACLIB 

*BACLST=BACEQU,BACLST 

*BACMEM=BACEQU, BACME3M 

* BAC PAU=BAC EQU,BACPAU 

*BACPRC=BACEQU,BACPRC 

*BACPRI=BACEQU,BACPRI 

*BACRAD=BACEQU,BACRAD 

* BACS PC=BACEQtJ, BACSPC 

*BACSYM=BACEQU,BACSYM 
*BACSYN=BACEQU,BACSYN 
*BACTRC=BACEQU,BACTRC 
*BACTYP=BACEQU,BACTYP 
*BACXNL=BACEQU,BACXNL 

*BACXNR=BACEQ(J, BACXNR 
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Batch job to assemble the RT-11 dependent modules. 

$JOB/RT11 

.R MACRO 

*BACBAT=BACEQU,BACBAT 
*BACDVS=BACEQU,BACDVS 

* BACFIL=BACEQU,BACFIL 
*BACFTO=BACEQU,BACFTN 
*BACINT=BACEQU,BACINT 

*BACNMR=BACEQU,BACNMR 

* BACNMX=BACEQU,BACNMX 
*BACRIO=BACEQU,BACRIO 
*BACRT=BACEQU,BACRT 

*UDT=BACEQU,UDT 
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Batch job to assemble the PTS dependent modules. 

$ J0B/RT11 
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TTYIO 
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.R MACRO 

*BACFIN=BACEQU,BACPIN 
*BACINT=BACEQU,BACINT 

*BACNMR=BACEQU,BACNMR 
* BACNMX=BACEQU,BACNMX 
*BACPIS=BACEQU,BACPTS 
*UDT=BACEQU,UDT 
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Batch job to generate a BACO system from the object modules for RT-11. 

9 

Here the number system NMX is chosen. You can get another number system 
by replacing BACNMX by BACINT or BACNMR in this batch. 
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$JOB/RTl1 
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.R PIP 

*BACO.OBJ=BACBOO.OBJ,BACCNV.OBJ,BACCST.OBJ,BACDIM.OBJ,BACEIN.OBJ 
*BACO. OBJ=BACO. OBJ, B ACERR. OBJ, BACEVA. OBJ, BACEXP. OBJ, BACFOR. OBJ f BACIF. OBJ 
*BACO. OBJ=BACO. OBJ, BAC INP. OBJ, BACKRN .OBJ, BAC LEX. OBJ, BACLIB. OBJ, BACLST .OBJ 
*BACO. OBJ=BACO. OBJ, BACMEM. OBJ, BACPAU. OBJ, BACPRC. OBJ, BACPRI. OBJ, BACRAD. OBJ 

*BACO. OBJ=BACO. OBJ, BACSPC. OBJ, BACS YM. OBJ, B ACS YN .OBJ, BACTRC. OBJ, BACTYP. OBJ 
*BACO. OBJ=BACO. OBJ, BACXNL. CBJ, BACXNR. OBJ 
.R PIP 

*BACO.OBJ=BACO.OBJ,BACBAT.OBJ,BACDVS.OBJ,BACFIL. CBJ,BACFTN.OBJ,BACNMX.OBJ 
*BACO. OBJ=BACO. OBJ, BAC RIO. OBJ, BACRT. OBJ 
.R LINK 

*BACO,BACO=BSTART,BACO,UDT/F 
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Batch job to generate a BACO system from the object modules for PTS. 
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Here the number system NMR is chosen. You can get another number system 
by replacing BACNMR by BACINT or BACNMX in this batch. 
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$JOB/RTl1 
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TTYIO 
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.R PIP 

*BACO.OBJ=BACBOO.OBJ,BACCNV.OBJ,BACCST. OBJ,BACDIM.OBJ,BACEIN.OBJ 
*BACO. OBJ=BACO. OBJ, B ACERR. OBJ, BACEVA. OBJ, BACEXP. OBJ, BACFOR. OBJ, BAC IF. OBJ 
*BACO. OBJ=BACO.OBJ,BACINP.OBJ, BACKRN. OBJ, BACLEX. OBJ, BACLIB. OBJ, BACLST. OBJ 
* BACO. OBJ=BACO. OBJ, B ACM EM. OBJ, BACPAU. OBJ, BACPRC. OBJ, BACPRI. CBJ, BACRAD. CBJ 
*BACO.OBJ=BACO.OBJ,BACSPC.OBJ,BACSYM.OBJ,BACSYN.OBJ,BACTRC. CBJ,BACTYP.OBJ 
*BACO.OBJ=BACO.OBJ,BACXNL.OBJ,BACXNR.OBJ 

.R PIP 

*BACO. OBJ=BACO. OBJ, BACFTN. OBJ, BACNMR. OBJ, BACPTS. OBJ 

.R LINK 

*BACO,BACO=BACO,UDT/F/L 
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